Personal Computer World 2005 October/PCWOCT05.iso/Software/FromTheMag/Syn Text Editor 2.1.0.46/synsetup-2.1.0.46.exe/{app}/scripts/htment.vbs

Text File | 2003-08-13 | 4.7 KB | 156 lines

' Caption: HTML Entities|
' Hint: Shows and inserts HTML Entities|
' Icon: htmlent.ico|
'
'  syn
'  Copyright (C) 2000-2003, Ascher Stefan. All rights reserved.
'  [e-mail], http://web.utanet.at/ascherst/
'
'  The contents of this file are subject to the Mozilla Public License
'  Version 1.1 (the "License"); you may not use this file except in compliance
'  with the License. You may obtain a copy of the License at
'  http://www.mozilla.org/MPL/
'
'  Software distributed under the License is distributed on an "AS IS" basis,
'  WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
'  the specific language governing rights and limitations under the License.
'
'  The Original Code is htmlent.vbs, released Sun, 26 May 2002 10:55:39 UTC.
'
'  The Initial Developer of the Original Code is Ascher Stefan.
'  Portions created by Ascher Stefan are Copyright (C) 2000-2003 Ascher Stefan.
'  All Rights Reserved.
'
'  Contributor(s): .
'
'  Alternatively, the contents of this file may be used under the terms of the
'  GNU General Public License Version 2 or later (the "GPL"), in which case
'  the provisions of the GPL are applicable instead of those above.
'  If you wish to allow use of your version of this file only under the terms
'  of the GPL and not to allow others to use your version of this file
'  under the MPL, indicate your decision by deleting the provisions above and
'  replace them with the notice and other provisions required by the GPL.
'  If you do not delete the provisions above, a recipient may use your version
'  of this file under either the MPL or the GPL.
'
'  You may retrieve the latest version of this file at the syn home page,
'  located at http://syn.sourceforge.net/
'
' $Id: htment.vbs,v 1.3.2.5 2003/08/13 00:38:45 neum Exp $

option explicit

' Remove the dot to include this files
'#include <consts>
'#include <cmnfunc>

const RegKey = "HKCU\Software\Ascher\syn\Macros"

dim list

sub FormShow(Sender)
  ' Load Settings
  with Sender
    .Width = RegGetSettings(AddBackslash(RegKey) & "he_width", .Width)
    .Height = RegGetSettings(AddBackslash(RegKey) & "he_height", .Height)
    .Top = RegGetSettings(AddBackslash(RegKey) & "he_top", .Top)
    .Left = RegGetSettings(AddBackslash(RegKey) & "he_left", .Left)
  end with
end sub

sub FormDestroy(Sender)
  ' Save Settings
  with Sender
    RegSetSettings AddBackslash(RegKey) & "he_width", .Width
    RegSetSettings AddBackslash(RegKey) & "he_height", .Height
    RegSetSettings AddBackslash(RegKey) & "he_top", .Top
    RegSetSettings AddBackslash(RegKey) & "he_left", .Left
  end with
end sub

sub LstDlbClick(Sender)
  dim p
  dim sel, v
  if Documents.Count > 0 then
    sel = Sender.Items(Sender.ItemIndex)
    p = InStr(1, sel, vbTab)
    p = InStr(p + 1, sel, vbTab)
    v = Mid(sel, p + 1)
    ActiveDocument.SelText = v
  end if
end sub

sub EntityClick(Sender)
  LstDlbClick list
end sub

sub CharClick(Sender)
  dim sel, v
  if Documents.Count > 0 then
    sel = list.Items(list.ItemIndex)
    v = Mid(sel, 1, 1)
    ActiveDocument.SelText = v
  end if
end sub

sub Main(FileName)
  dim form, pnl
  dim lstfile
  dim i, p, v
  lstfile = AddBackslash(ExtractFilePath(FileName)) & "htmlent.txt"
  if not FileExists(lstfile) then
    MsgBox "File " & lstfile & " not found.", vbCritical
    exit sub
  end if
  form = Create("TForm", Self)
  with form
    .Width = 290
    .Caption = "HTML Entities"
    .BorderIcons = "biSystemMenu"
    .OnShow = "FormShow"
    .OnDestroy = "FormDestroy"
  end with
  pnl = Create("TPanel", form)
  with pnl
    .Parent = form
    .Align = "alTop"
    .Height = 35
    .BevelOuter = "bvNone"
  end with
  with Create("TButton", pnl)
    .Parent = pnl
    .Left = 5
    .Top = 5
    .Caption = "HTML Entity"
    .Hint = "Click to insert the selected HTML Entity"
    .OnClick = "EntityClick"
  end with
  with Create("TButton", pnl)
    .Parent = pnl
    .Left = 85
    .Top = 5
    .Caption = "Character"
    .Hint = "Click to insert the selected Character"
    .OnClick = "CharClick"
  end with
  list = Create("TListBox", form)
  with list
    .Parent = form
    .Font.Name = "Courier New"
    .Font.Size = 12
    .TabWidth = 35
    .Align = "alClient"
    .OnDblClick = "LstDlbClick"
    .Hint = "Double Click to insert the selected HTML Entity"
    .Items.LoadFromFile(lstfile)
    ' Character vbTab Char_Code vbTab HTML_Code
    for i = 0 to .Items.Count - 1
      p = InStr(1, .Items(i), vbTab)
      v = CInt(Mid(.Items(i), 1, p))
      .Items(i) = Chr(v) & vbTab & .Items(i)
    next
  end with
  form.ShowModal
  form.Free
end sub